Korelacja
numeric_df <- data[, numeric_columns]
correlation_matrix <- cor(numeric_df)
correlation_df <- as.data.frame(as.table(correlation_matrix))
names(correlation_df) <- c("x", "y", "cor")
correlation_df_one_dir <- correlation_df[as.character(correlation_df$x) < as.character(correlation_df$y), ]
Korelacja wszytskich par zmiennych numerycznych
knitr::kable(correlation_df_one_dir[order(-abs(correlation_df_one_dir$cor)), ])
| 65 |
Gravimetric.Energy |
Volumetric.Energy |
0.9283253 |
| 39 |
Gravimetric.Capacity |
Volumetric.Capacity |
0.8584163 |
| 117 |
Stability.Charge |
Stability.Discharge |
0.8028701 |
| 32 |
Atomic.Fraction.Discharge |
Gravimetric.Capacity |
0.6807716 |
| 50 |
Average.Voltage |
Gravimetric.Energy |
0.6656523 |
| 44 |
Atomic.Fraction.Discharge |
Volumetric.Capacity |
0.6180186 |
| 91 |
Atomic.Fraction.Charge |
Atomic.Fraction.Discharge |
0.5974157 |
| 62 |
Average.Voltage |
Volumetric.Energy |
0.5545191 |
| 132 |
Max.Voltage.Step |
Steps |
0.5352539 |
| 3 |
Gravimetric.Capacity |
Max.Delta.Volume |
0.4337733 |
| 137 |
Gravimetric.Energy |
Max.Voltage.Step |
0.3292322 |
| 64 |
Volumetric.Capacity |
Volumetric.Energy |
0.3257482 |
| 125 |
Gravimetric.Energy |
Steps |
0.2946075 |
| 8 |
Atomic.Fraction.Discharge |
Max.Delta.Volume |
0.2906921 |
| 72 |
Max.Voltage.Step |
Volumetric.Energy |
0.2526625 |
| 37 |
Max.Delta.Volume |
Volumetric.Capacity |
0.2424769 |
| 71 |
Steps |
Volumetric.Energy |
0.2381420 |
| 63 |
Gravimetric.Capacity |
Volumetric.Energy |
0.2304216 |
| 51 |
Gravimetric.Capacity |
Gravimetric.Energy |
0.2132463 |
| 38 |
Average.Voltage |
Volumetric.Capacity |
-0.2128178 |
| 41 |
Gravimetric.Energy |
Volumetric.Capacity |
0.2098406 |
| 69 |
Stability.Charge |
Volumetric.Energy |
0.1783271 |
| 20 |
Atomic.Fraction.Discharge |
Average.Voltage |
-0.1716903 |
| 101 |
Gravimetric.Energy |
Stability.Charge |
0.1669819 |
| 98 |
Average.Voltage |
Stability.Charge |
0.1661371 |
| 128 |
Atomic.Fraction.Discharge |
Steps |
0.1641713 |
| 67 |
Atomic.Fraction.Charge |
Volumetric.Energy |
-0.1473523 |
| 26 |
Average.Voltage |
Gravimetric.Capacity |
-0.1462222 |
| 123 |
Gravimetric.Capacity |
Steps |
0.1333977 |
| 31 |
Atomic.Fraction.Charge |
Gravimetric.Capacity |
0.1289210 |
| 110 |
Average.Voltage |
Stability.Discharge |
-0.1284568 |
| 134 |
Average.Voltage |
Max.Voltage.Step |
0.1271208 |
| 47 |
Steps |
Volumetric.Capacity |
0.1037051 |
| 140 |
Atomic.Fraction.Discharge |
Max.Voltage.Step |
0.1019796 |
| 45 |
Stability.Charge |
Volumetric.Capacity |
0.1015305 |
| 55 |
Atomic.Fraction.Charge |
Gravimetric.Energy |
-0.0972924 |
| 135 |
Gravimetric.Capacity |
Max.Voltage.Step |
0.0951906 |
| 108 |
Max.Voltage.Step |
Stability.Charge |
0.0940466 |
| 2 |
Average.Voltage |
Max.Delta.Volume |
-0.0823707 |
| 113 |
Gravimetric.Energy |
Stability.Discharge |
-0.0782609 |
| 56 |
Atomic.Fraction.Discharge |
Gravimetric.Energy |
0.0645248 |
| 99 |
Gravimetric.Capacity |
Stability.Charge |
0.0633871 |
| 130 |
Stability.Discharge |
Steps |
-0.0631686 |
| 122 |
Average.Voltage |
Steps |
0.0627851 |
| 48 |
Max.Voltage.Step |
Volumetric.Capacity |
0.0626085 |
| 68 |
Atomic.Fraction.Discharge |
Volumetric.Energy |
0.0610586 |
| 5 |
Gravimetric.Energy |
Max.Delta.Volume |
-0.0609858 |
| 70 |
Stability.Discharge |
Volumetric.Energy |
-0.0599949 |
| 61 |
Max.Delta.Volume |
Volumetric.Energy |
-0.0588321 |
| 115 |
Atomic.Fraction.Charge |
Stability.Discharge |
-0.0523971 |
| 19 |
Atomic.Fraction.Charge |
Average.Voltage |
-0.0385556 |
| 129 |
Stability.Charge |
Steps |
-0.0374860 |
| 97 |
Max.Delta.Volume |
Stability.Charge |
0.0337587 |
| 104 |
Atomic.Fraction.Discharge |
Stability.Charge |
0.0324051 |
| 46 |
Stability.Discharge |
Volumetric.Capacity |
0.0317012 |
| 127 |
Atomic.Fraction.Charge |
Steps |
0.0297369 |
| 103 |
Atomic.Fraction.Charge |
Stability.Charge |
-0.0273571 |
| 7 |
Atomic.Fraction.Charge |
Max.Delta.Volume |
0.0213153 |
| 120 |
Max.Voltage.Step |
Stability.Discharge |
-0.0165552 |
| 116 |
Atomic.Fraction.Discharge |
Stability.Discharge |
0.0143204 |
| 121 |
Max.Delta.Volume |
Steps |
-0.0132582 |
| 111 |
Gravimetric.Capacity |
Stability.Discharge |
0.0125390 |
| 133 |
Max.Delta.Volume |
Max.Voltage.Step |
-0.0099251 |
| 109 |
Max.Delta.Volume |
Stability.Discharge |
0.0077357 |
| 139 |
Atomic.Fraction.Charge |
Max.Voltage.Step |
0.0053420 |
| 43 |
Atomic.Fraction.Charge |
Volumetric.Capacity |
0.0012456 |
p <- ggplot(correlation_df) +
geom_tile(aes(x = x, y = y, fill = abs(cor), text = paste("Korelacja pomiędzy", x, "i", y, "=", abs(cor)))) +
theme(axis.title = element_blank()) +
labs(fill="Korelacja") +
scale_fill_gradient(low="white", high="green") +
theme_minimal()
ggplotly(p, tooltip = "text") %>%
layout(
xaxis = list(
tickangle = 45,
title = ""
),
yaxis = list(
title = ""
)
)
Przedstawienie zależności 5 par zmiennych o najwyższej korelacji
top_5_correlation <- correlation_df_one_dir[order(-abs(correlation_df_one_dir$cor)), ] %>%
slice(1:5)
knitr::kable(top_5_correlation)
| Gravimetric.Energy |
Volumetric.Energy |
0.9283253 |
| Gravimetric.Capacity |
Volumetric.Capacity |
0.8584163 |
| Stability.Charge |
Stability.Discharge |
0.8028701 |
| Atomic.Fraction.Discharge |
Gravimetric.Capacity |
0.6807716 |
| Average.Voltage |
Gravimetric.Energy |
0.6656523 |
ggplotly(
ggplot(data, aes(x = Gravimetric.Energy, y = Volumetric.Energy)) +
geom_point(aes(
x = Gravimetric.Energy,
y = Volumetric.Energy,
text = paste("ID baterii:", Battery.ID,
"\nGravimetric.Energy:",Gravimetric.Energy,
"\nVolumetric.Energy", Volumetric.Energy
)
)) +
geom_smooth(method = lm) +
labs(title = paste("Gravimetric.Energy i Volumetric.Energy")) +
theme_minimal(),
tooltip = "text"
)
ggplotly(
ggplot(data, aes(x = Gravimetric.Capacity, y = Volumetric.Capacity)) +
geom_point(aes(
x = Gravimetric.Capacity,
y = Volumetric.Capacity,
text = paste(
"ID baterii:", Battery.ID,
"\nGravimetric.Capacity:", Gravimetric.Capacity,
"\nVolumetric.Capacity:", Volumetric.Capacity
)
)) +
geom_smooth(method = lm) +
labs(title = paste("Gravimetric.Capacity i Volumetric.Capacity")) +
theme_minimal(),
tooltip = "text"
)
ggplotly(
ggplot(data, aes(x = Stability.Charge, y = Stability.Discharge)) +
geom_point(aes(
x = Stability.Charge,
y = Stability.Discharge,
text = paste(
"ID baterii:", Battery.ID,
"\nStability.Charge:", Stability.Charge,
"\nStability.Discharge:", Stability.Discharge
)
)) +
geom_smooth(method = lm) +
labs(title = paste("Stability.Charge i Stability.Discharge")) +
theme_minimal(),
tooltip = "text"
)
ggplotly(
ggplot(data, aes(x = Atomic.Fraction.Discharge, y = Gravimetric.Capacity)) +
geom_point(aes(
x = Atomic.Fraction.Discharge,
y = Gravimetric.Capacity,
text = paste(
"ID baterii:", Battery.ID,
"\nAtomic.Fraction.Discharge:", Atomic.Fraction.Discharge,
"\nGravimetric.Capacity:", Gravimetric.Capacity
)
)) +
geom_smooth(method = lm) +
labs(title = paste("Atomic.Fraction.Discharge i Gravimetric.Capacity")) +
theme_minimal(),
tooltip = "text"
)
ggplotly(
ggplot(data, aes(x = Average.Voltage, y = Gravimetric.Energy)) +
geom_point(aes(
x = Average.Voltage,
y = Gravimetric.Energy,
text = paste(
"ID baterii:", Battery.ID,
"\nAverage.Voltage:", Average.Voltage,
"\nGravimetric.Energy:", Gravimetric.Energy
)
)) +
geom_smooth(method = lm) +
labs(title = paste("Average.Voltage i Gravimetric.Energy")) +
theme_minimal(),
tooltip = "text"
)